home *** CD-ROM | disk | FTP | other *** search
/ Chip 2005 May / CMCD0505.ISO / Software / Demo / DesktopX / objects / ktekdockv1.dxpack / {2D767879-2136-4A66-A66A-D464C4424EC3}.DXScript2 < prev    next >
Extensible Markup Language  |  2004-08-24  |  2KB  |  76 lines
  1. <?xml version="1.0"?>
  2. <!--DXScript Data File.  Version 2.0-->
  3. <DXScript>
  4.     <Script><![CDATA[Dim fading
  5. fading=False
  6. Dim txt
  7. Dim faderate
  8.  
  9. Sub tooltip(sometxt)
  10.     Object.KillTimer 100'kill initiating timer
  11.     Object.KillTimer 150
  12.     If sometxt="hide" Then 
  13.         Object_OnTimer200'start fading timer
  14.     Else
  15.         txt=sometxt
  16.         object.OnTop
  17.         Object.SetTimer 100,1000'wait 1 second then show text
  18.     End If    
  19. End Sub
  20.  
  21. Sub Object_OnTimer100'tooltip configured in this sub
  22.     If fading=False Then
  23.         DesktopX.Object(Object.Name&"text").Text=txt
  24.         Object.Sleep 50'give dx breathing space b4 it measures the text
  25.         Object.Width=DesktopX.Object(Object.Name&"text").Width+8
  26.         Object.Move System.CursorX-(Object.Width)/2,System.Cursory-24
  27.         If Object.Right>desktopx.Object("kbarback").Right Then Object.Right=desktopx.Object("kbarback").Right
  28.         If Object.Left<desktopx.Object("kbarback").Left Then Object.Left=desktopx.Object("kbarback").Left
  29.         If Object.Top<desktopx.Object("kbarback").Top Then Object.Top=desktopx.Object("kbarback").Top
  30.         Object.KillTimer 100'kill this timer
  31.         Object.SetTimer 150,25
  32.     End If
  33. End Sub
  34.  
  35. Sub Object_OnTimer150'fade in tooltip
  36.     x=Object.Opacity
  37.     If x<100 Then 
  38.         x=x+10
  39.         Object.Opacity=x
  40.         DesktopX.Object(Object.Name&"text").Opacity=x
  41.     Else 
  42.         Object.KillTimer 150'stop timer once tooltip is revealed
  43.         Object.SetTimer 200,2000'begin fading tooltip after 2 seconds
  44.     End If
  45. End Sub
  46.  
  47. Sub Object_OnTimer200'fade out tooltip
  48.     fading=True
  49.     Object.SetTimer 200,25'reset timing 
  50.     x=Object.Opacity
  51.     If x>0 Then 
  52.         x=x-10
  53.         Object.Opacity=x
  54.         DesktopX.Object(Object.Name&"text").Opacity=x
  55.     Else 
  56.         Object.KillTimer 200'stop timer once tooltip has faded
  57.         fading=False
  58.     End If
  59. End Sub
  60.  
  61.  
  62.  
  63. 'Called when the script is executed
  64. Sub Object_OnScriptEnter
  65.     'Object.Opacity=100
  66. End Sub
  67.  
  68. 'Called when the script is terminated
  69. Sub Object_OnScriptExit
  70.  
  71. End Sub
  72.  
  73.  
  74.  
  75. ]]></Script><Globals><Editor><PropPane>0</PropPane><EditorLeft>183</EditorLeft><EditorTop>47</EditorTop><EditorRight>1243</EditorRight><EditorBottom>850</EditorBottom></Editor><Object><LanguageCLSID>{B54F3741-5B07-11CF-A4B0-00AA004A55E8}</LanguageCLSID><ControlCLSID>{00000000-0000-0000-0000-000000000000}</ControlCLSID><ControlObjWidth>64</ControlObjWidth><ControlObjHeight>64</ControlObjHeight><RunState>1</RunState><ManualControlLoad>0</ManualControlLoad><ScriptHostVersion>2</ScriptHostVersion></Object></Globals></DXScript>
  76.